home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / prelude / Block.p < prev    next >
Text File  |  2002-10-27  |  2KB  |  68 lines
  1. pTempVar <- <primitive 110 14 >
  2. <primitive 112 pTempVar 1  " value:value:value:value:value: " \
  3.   #( #[ 16r55 16rFA 16r01 16r8C 16rF2 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " value:value:value:value: " \
  7.   #( #[ 16r54 16rFA 16r01 16r8C 16rF2 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " value:value:value: " \
  11.   #( #[ 16r53 16rFA 16r01 16r8C 16rF2 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " value:value: " \
  15.   #( #[ 16r52 16rFA 16r01 16r8C 16rF2 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " value: " \
  19.   #( #[ 16r51 16rFA 16r01 16r8C 16rF2 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 6  " value " \
  23.   #( #[ 16r50 16rFA 16r01 16r8C 16rF2 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 7  " whileFalse: " \
  27.   #( #[ 16r20 16rA5 16rF6 16r05 16r21 16rA5 16rF2 16rF9 16r09 16rF3 16rF5 \
  28.        ] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 8  " whileFalse " \
  32.   #( #[ 16r20 16rA5 16rF6 16r04 16r5D 16rF2 16rF9 16r08 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 9  " whileTrue: " \
  36.   #( #[ 16r20 16rA5 16rF7 16r05 16r21 16rA5 16rF2 16rF9 16r09 16rF3 16rF5 \
  37.        ] \
  38.     #(  )) >
  39.  
  40. <primitive 112 pTempVar 10  " whileTrue " \
  41.   #( #[ 16r20 16rA5 16rF7 16r04 16r5D 16rF2 16rF9 16r08 16rF3 16rF5] \
  42.     #(  )) >
  43.  
  44. <primitive 112 pTempVar 11  " forkWith: " \
  45.   #( #[ 16r20 16r21 16r0B 16r24 16r0A 16r28 16rF2 16r5D 16rF3 16rF5] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 12  " fork " \
  49.   #( #[ 16r20 16r0A 16r22 16r0A 16r28 16rF2 16r5D 16rF3 16rF5] \
  50.     #(  )) >
  51.  
  52. <primitive 112 pTempVar 13  " newProcessWith: " \
  53.   #( #[ 16r20 16r21 16rFA 16r02 16r8D 16rF3 16rF5] \
  54.     #(  )) >
  55.  
  56. <primitive 112 pTempVar 14  " newProcess " \
  57.   #( #[ 16r20 16rFA 16r01 16r8D 16rF3 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 98 #Block \
  61.   <primitive 97 #Block #Object #AmigaTalk:General/Block.st \
  62.    #(  ) \
  63.    #( #value:value:value:value:value: #value:value:value:value:  \
  64.        #value:value:value: #value:value: #value: #value #whileFalse: #whileFalse #whileTrue:  \
  65.        #whileTrue #forkWith: #fork #newProcessWith: #newProcess  ) \
  66.   pTempVar 6 3 > #ordinary >
  67.  
  68.